(write-file): Make buffer writable if the new file is.

diff --git a/lisp/files.el b/lisp/files.el
index fbb148322fd060edfd8686b6cbef641f22eb7be1..b63b6c49b3479d7825334300dd3b4d302ca0ef05 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1786,6 +1786,10 @@ Interactively, confirmation is required unless you supply a prefix argument."
                 (error "Canceled")))
        (set-visited-file-name filename (not confirm))))
   (set-buffer-modified-p t)
+  ;; Make buffer writable if file is writable.
+  (and buffer-file-name
+       (file-writable-p buffer-file-name)
+       (setq buffer-read-only nil))
   (save-buffer))
 \f
 (defun backup-buffer ()